Scaling Temperature

Scaling temperature values

#extract just temperature variables to scale
tempvars <- grep(pattern = "*_s.t_*",colnames(spp_master_ztemp_seus_buoy), value = T)
spp_master_ztemp_seus_buoy_varsonly <- spp_master_ztemp_seus_buoy[,..tempvars]

#scale all variables, make new columns
spp_master_ztemp_seus_buoy_varsonly[, paste0(tempvars, "_scaled") := lapply(.SD, function(x) as.vector(scale(x))), .SDcols = tempvars]


#names of scaled columns
scaled_cols <- grep("*_scaled", names(spp_master_ztemp_seus_buoy_varsonly), value = T)

#merge new columns back with spp_master_ztemp_seus_buoy
spp_master_ztemp_seus_buoy_scaled <- cbind(spp_master_ztemp_seus_buoy, spp_master_ztemp_seus_buoy_varsonly[,scaled_cols, with = FALSE])

saveRDS(spp_master_ztemp_seus_buoy_scaled, file = here("Data","Spp_master", "spp_master_ztemp_seus_buoy_scaled.rds"))